home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / SLIDRWGT < prev    next >
Text File  |  2001-03-02  |  935b  |  28 lines
  1. 10    ! **********************************************************
  2. 20    ! Example: SLIDER Widget
  3. 30    !
  4. 40    ! This program creates a SLIDER widget and displays
  5. 50    ! the value set by the slider.
  6. 60    !
  7. 70    ! **********************************************************
  8. 80    !
  9. 90       CLEAR SCREEN
  10. 100       ASSIGN @Slider TO WIDGET "SLIDER"
  11. 110       CONTROL @Slider;SET ("TITLE":" Example: SLIDER Widget")
  12. 120       CONTROL @Slider;SET ("X":150,"Y":25,"WIDTH":250,"HEIGHT":200)
  13. 130       CONTROL @Slider;SET ("SYSTEM MENU":"Quit")
  14. 140   !
  15. 150       ON EVENT @Slider,"SYSTEM MENU" GOTO Finis
  16. 160       ON EVENT @Slider,"DONE" GOSUB Dispval
  17. 170       LOOP
  18. 180           WAIT FOR EVENT
  19. 190       END LOOP
  20. 200   !
  21. 210  Dispval:!
  22. 220       STATUS @Slider;RETURN ("VALUE":Sliderval)
  23. 230       DISP Sliderval
  24. 240       RETURN
  25. 250  Finis:!
  26. 260       ASSIGN @Slider TO *! Delete SLIDER widget
  27. 270       END
  28.